From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 17 Aug 2010 19:38:30 +0000 (+0200)
Subject: * lisp/newcomment.el (comment-add): Move comment to docstring.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~6936
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3f15b26393cc4c4a8144ffc5b7d3a3427ce622dc;p=emacs.git

* lisp/newcomment.el (comment-add): Move comment to docstring.
---

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 5d2da467347..5a6cdcd6886 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -945,12 +945,12 @@ indentation to be kept as it was before narrowing."
 		   (delete-char n)
 		   (setq ,bindent (- ,bindent n)))))))))))
 
-;; Compute the number of extra comment starter characters
-;; (extra semicolons in Lisp mode, extra stars in C mode, etc.)
-;; If ARG is non-nil, just follow ARG.
-;; If the comment-starter is multi-char, just follow ARG.
-;; Otherwise obey comment-add, and double it if EXTRA is non-nil.
 (defun comment-add (arg)
+  "Compute the number of extra comment starter characters
+\(extra semicolons in Lisp mode, extra stars in C mode, etc.)
+If ARG is non-nil, just follow ARG.
+If the comment starter is multi-char, just follow ARG.
+Otherwise obey `comment-add'."
   (if (and (null arg) (= (string-match "[ \t]*\\'" comment-start) 1))
       (* comment-add 1)
     (1- (prefix-numeric-value arg))))